﻿Public Class FullSearchvb

    Private Sub FullSearchvb_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DGV_Full.DataSource = GetTable("SELECT * FROM BatchFinal")

        DGV_Full.Columns(0).HeaderText = "المسلسل"
        DGV_Full.Columns(1).HeaderText = "اسم الخلطة"
        DGV_Full.Columns(2).HeaderText = "ذرة 1"
        DGV_Full.Columns(3).HeaderText = "ذرة 2"
        DGV_Full.Columns(4).HeaderText = "صويا 1"
        DGV_Full.Columns(5).HeaderText = "صويا 2"
        DGV_Full.Columns(6).HeaderText = "سن"
        DGV_Full.Columns(7).HeaderText = "ردة"
        DGV_Full.Columns(8).HeaderText = "كون"
        DGV_Full.Columns(9).HeaderText = "جيلوتين"
        DGV_Full.Columns(10).HeaderText = "زيت"
        DGV_Full.Columns(11).HeaderText = "إضافات"
        DGV_Full.Columns(12).HeaderText = "إضافى 1"
        DGV_Full.Columns(13).HeaderText = "إضافى 2"
        DGV_Full.Columns(14).HeaderText = "الوزن الكلى"
        DGV_Full.Columns(15).HeaderText = "الوقت"
    End Sub
End Class